home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 4 / United Public Domain Gold 4.iso / fredfish / ff.0885.dms / ff.0885.adf / KCommodity / Install < prev    next >
Text File  |  1993-07-16  |  18KB  |  611 lines
  1.  
  2. ; Script for installing KCommodity v2.5
  3. ; $VER: Install-KCommodity 1.2 (14.06.93)
  4.  
  5. (complete 0)
  6.  
  7. (set @default-dest "")
  8.  
  9.  
  10. ; ASK FOR ICON-TYPE
  11.  
  12. (set IconType (askbool (prompt "Do you prefer the 8-Color Icons ???\n"
  13.                    "Your colors should be set to the following :\n"
  14.                    "Color 0-3 : Normal C= WB Colors\n"
  15.                    "Color 4   : Dark gray          \n"
  16.                    "Color 5   : Green              \n"
  17.                    "Color 6   : Red                \n"
  18.                    "Color 7   : Yellow             \n\n"
  19.                    "Thanks to Michael 'mick' Hohmann for the icons"
  20.             )
  21.             (help "The 8-Color Icons are for users running a WB\n"
  22.                   "with more than 4 colors.")
  23.             (choices "8-Color"
  24.                  "4-Color"
  25.             )
  26.         )
  27. )
  28.  
  29. (if (= 1 IconType)
  30. (
  31.     (working "The icons are being unpacked to ram:")
  32.     (run ("c/LhA x 8Icons/8Icons.lha ram:"))
  33. ))
  34.  
  35. ; INSTALL THE MAIN PROGRAM
  36.  
  37. (working "The main program is being unpacked to ram:")
  38. (run ("c/LhA x WBStartUp/KCXMain.lha ram:"))
  39.  
  40. (set KCXMain (askdir (prompt "Specify the directory to place the main program")
  41.             (default "SYS:WBStartUp")
  42.             (help "KCommodity`s main program should be located "
  43.                 "within SYS:WBStartUp in order to be launched on every "
  44.                 "BootUp. If you do not like this location, "
  45.                 "select a different."
  46.             )
  47.           )
  48. )
  49.  
  50. (copyfiles (source "ram:WBStartUp/KCommodity") (dest KCXMain) (infos) (files))
  51. (if (= 1 IconType)
  52. (
  53.     (copyfiles (source "ram:8Icons/WBStartUp/KCommodity.info") (dest KCXMain) (files))
  54. ))
  55. (set KCXMainPrg (tackon KCXMain "KCommodity"))
  56. (foreach "ram:WBStartUp" "#?" (delete (tackon "ram:WBStartUp" @each-name)))
  57. (delete "ram:WBStartUp")
  58.  
  59. (complete 10)
  60.  
  61.  
  62.  
  63. ; INSTALL THE PREFERENCES EDITOR
  64.  
  65. (working "The prefs editor is being unpacked to ram:")
  66. (run ("c/LhA x Prefs/KCXPrefs.lha ram:"))
  67.  
  68. (set KCXPrefs (askdir (prompt "Specify the path for the Preferences editor. "
  69.                   "Do not use the same path as for the main program!")
  70.             (default "SYS:Prefs")
  71.             (help "This is the preferences editor for KCommodity. "
  72.                 "it should be installed to SYS:Prefs, so that "
  73.                 "KCommodity will find it easily. If you want "
  74.                 "to install that program to a different "
  75.                 "location, you will have to change the searchpath "
  76.                 "within the main program`s icon. Refer to the "
  77.                 "manual in order to see how this is done.\n "
  78.                 "After installation the ToolTypes will be "
  79.                 "set to your destinations."
  80.             )
  81.         )
  82. )
  83.  
  84. (copyfiles (source "ram:Prefs/KCommodity") (dest KCXPrefs) (infos) (files))
  85. (if (= 1 IconType)
  86. (
  87.     (copyfiles (source "ram:8Icons/Prefs/KCommodity.info") (dest KCXPrefs) (files))
  88. ))
  89. (set KCXPrefsPrg (tackon KCXPrefs "KCommodity"))
  90. (foreach "ram:Prefs" "#?" (delete (tackon "ram:Prefs" @each-name)))
  91. (delete "ram:Prefs")
  92.  
  93. (complete 20)
  94.  
  95.  
  96. ; INSTALL THE PRINTER MODULE
  97.  
  98. (working "The printer module is being unpacked to ram:")
  99. (run ("c/LhA x Utilities/KCXDump.lha ram:"))
  100.  
  101. (set KCXPrinter (askdir (prompt "Specify the path for the Printer module")
  102.             (default "SYS:Utilities")
  103.             (help "This is KCommodity`s printer module. Use it "
  104.                 "to dump screens/windows to a printer or "
  105.                 "an IFF-ILBM file. Per default KCommodity will search"
  106.                 "within SYS:Utilites for that module. If you "
  107.                 "prefer a different location, you will have "
  108.                 "to change a ToolType within the main program`s "
  109.                 "list of ToolTypes. Refer to the manual for "
  110.                 "more information about this.\n "
  111.                 "After installation the ToolTypes will be "
  112.                 "set to your destinations."
  113.             )
  114.         )
  115. )
  116.  
  117. (copyfiles (source "ram:Utilities/KCXPrinter") (dest KCXPrinter) (infos) (files))
  118. (if (= 1 IconType)
  119. (
  120.     (copyfiles (source "ram:8Icons/Utilities/KCXPrinter.info") (dest KCXPrinter) (files))
  121. ))
  122. (set KCXPrintPrg (tackon KCXPrinter "KCXPrinter"))
  123. (foreach "ram:Utilities" "#?" (delete (tackon "ram:Utilities" @each-name)))
  124. (delete "ram:Utilities")
  125.  
  126. (if (= 1 IconType)
  127. (
  128.     (foreach "ram:8Icons/Prefs" "#?" (delete (tackon "ram:8Icons/Prefs" @each-name)))
  129.     (delete "ram:8Icons/Prefs")
  130.  
  131.     (foreach "ram:8Icons/WBStartUp" "#?" (delete (tackon "ram:8Icons/WBStartUp" @each-name)))
  132.     (delete "ram:8Icons/WBStartUp")
  133.  
  134.     (foreach "ram:8Icons/Utilities" "#?" (delete (tackon "ram:8Icons/Utilities" @each-name)))
  135.     (delete "ram:8Icons/Utilities")
  136.  
  137.     (delete "ram:8Icons")
  138. ))
  139.  
  140.  
  141. (complete 30)
  142.  
  143.  
  144. ; NO HEAD FOR THE LIBRARY
  145.  
  146. (working "The libraries are being unpacked to ram:")
  147. (run ("c/LhA x libs/Libs.lha ram:"))
  148.  
  149. (message "The kcx.library will be copied to your LIBS: directory now.")
  150. (copylib (prompt "Copying kcx.library") (help @copylib-help ) (source "ram:libs/kcx.library") (dest "LIBS:") (confirm))
  151.  
  152. (complete 40)
  153.  
  154.  
  155.  
  156. ; CHECK FOR REQTOOLS.LIBRARY AND INSTALL IF NEEDED
  157.  
  158. (message "If you are not running Workbench 2.1 and up, you will need "
  159.     "reqtools.library v38 and up. I will check, whether you already "
  160.     "use a version suited. If not, the library will be copied to LIBS:.\n"
  161.     "ReqTools is Copyright (C) Nico Francois")
  162.  
  163. (copylib (prompt "Copying reqtools.library") (help @copylib-help) (source "ram:libs/reqtools.library") (dest "LIBS:") (confirm))
  164. (complete 60)
  165.  
  166. (foreach "ram:Libs" "#?" (delete (tackon "ram:Libs" @each-name)))
  167. (delete "ram:Libs")
  168.  
  169.  
  170.  
  171. ; PLACE THE DEFAULT PREFERENCES FILE
  172.  
  173. (set GotOld (askbool (prompt "Do you already have a v2.0 Preferences file ? "
  174.                 "If so, please locate the file, so that I "
  175.                 "can convert it to the new format")
  176.             (help "If you were using KCommodity v2.0 then you may now "
  177.                 "specify your old prefs file, in order to "
  178.                 "convert it to the new format. This does not work "
  179.                 "with preferences older than these of v2.0 !")
  180.             (choices "Yes, I do have v2.0"
  181.                 "No, install default v2.5")
  182.         )
  183. )
  184.  
  185. (if (= 1 GotOld)
  186. (
  187.     (set MyPrefs (askfile (prompt "Please locate your old v2.0 prefs file")
  188.                 (default "ENVARC:KCX.PREFS")
  189.                 (help @askfile-help)
  190.             )
  191.     )
  192.     (working "Now converting old preferences file")
  193.     (run ("PrefsConvert/PrefsConvert %s") MyPrefs)
  194. )
  195.  
  196. ; else
  197.  
  198. (
  199.     (set MyPrefs (askdir (prompt "Where should I place the default Preferences file ?")
  200.                 (default "ENVARC:")
  201.                 (help "Simple. This is the preferences containing all of "
  202.                     "the builtin settings. This is just an example."
  203.                     "You may copy it to the defaut path, but if you "
  204.                     "don`t, you will have to set a ToolType within the "
  205.                     "main program`s and the preferences editor`s icon."
  206.                 )
  207.             )
  208.     )
  209.     (copyfiles (source "prefs/envarc/KCX/KCX.PREFS") (dest MyPrefs) (files))
  210.     (set MyPrefs (tackon MyPrefs "KCX.PREFS"))
  211. ))
  212.  
  213. (complete 60)
  214.  
  215.  
  216.  
  217.  
  218.  
  219. ; IF LOCALE.LIBRARY IS EXITING WITHIN LIBS: CHECK FOR CATALOGS
  220.  
  221. (if (not (exists "libs:locale.library"))
  222. (
  223.     (message "Sorry, you do not have locale.library installed. "
  224.         "Therefore, no localization facilities will be installed."
  225.     )
  226. )
  227.  
  228. ; else
  229.  
  230. (
  231. (set Langs (askoptions
  232.         (prompt "KCommodity is localized, that means you may use "
  233.             "the program in different languages. Please choose "
  234.             "the desired langauges now. The default language "
  235.             "is english, so you do not have to select english.")
  236.         (choices "dansk"
  237.              "deutsch"
  238.              "français"
  239.              "italiano (N/A yet)"
  240.              "español"
  241.              "norsk (N/A yet)"
  242.              "svenska (N/A yet)"
  243.              "nederlands"
  244.              "suomi"
  245.         )
  246.         (help "These are the languages supported by KCommodity "
  247.             "and all it`s programs. Simply specify the languages "
  248.             "you prefer and the needed catalog files will be "
  249.             "copied to the LOCALE:CATALOGS directory.\n "
  250.             "for the language 'suomi' a language file will "
  251.             "be copied to LOCALE:LANGUAGES.\n"
  252.             "These features are only available under Workbench 2.1 "
  253.             "and later releases. The script assumes the needed "
  254.             "directories to be existent except for suomi"
  255.         ))
  256. )
  257.  
  258. (if (IN Langs 0)
  259. (
  260.     (working "Unpacking danish catalogs")
  261.     (run ("c/LhA x locale/catalogs/dansk/Catalogs.lha locale:catalogs/dansk/"))
  262. ))
  263. (if (IN Langs 1)
  264. (
  265.     (working "Unpacking german catalogs")
  266.     (run ("c/LhA x locale/catalogs/deutsch/Catalogs.lha locale:catalogs/deutsch/"))
  267. ))
  268. (if (IN Langs 2)
  269. (
  270.     (working "Unpacking french catalogs")
  271.     (run ("c/LhA x locale/catalogs/français/Catalogs.lha locale:catalogs/français/"))
  272. ))
  273. (if (IN Langs 3)
  274. (
  275.     (message "Sorry, the italian catalogs weren`t ready yet.\n"
  276.          "They will be released soon...")
  277. ;    (working "Unpacking italian catalogs")
  278. ;    (run ("c/LhA x locale/catalogs/italiano/Catalogs.lha locale:catalogs/italiano/"))
  279. ))
  280. (if (IN Langs 4)
  281. (
  282.     (working "Unpacking spanish catalogs")
  283.     (run ("c/LhA x locale/catalogs/español/Catalogs.lha locale:catalogs/español/"))
  284. ))
  285. (if (IN Langs 5)
  286. (
  287.     (message "Sorry, the norwegian catalogs weren`t ready yet.\n"
  288.          "They will be released soon...")
  289. ;    (working "Unpacking norwegian catalogs")
  290. ;    (run ("c/LhA x locale/catalogs/norsk/Catalogs.lha locale:catalogs/norsk/"))
  291. ))
  292. (if (IN Langs 6)
  293. (
  294.     (message "Sorry, the swedish catalogs weren`t ready yet.\n"
  295.          "They will be released soon...")
  296. ;    (working "Unpacking swedish catalogs")
  297. ;    (run ("c/LhA x locale/catalogs/svenska/Catalogs.lha locale:catalogs/svenska/"))
  298. ))
  299. (if (IN Langs 7)
  300. (
  301.     (working "Unpacking dutch catalogs")
  302.     (run ("c/LhA x locale/catalogs/nederlands/Catalogs.lha locale:catalogs/nederlands/"))
  303. ))
  304. (if (IN Langs 8)
  305. (
  306.     (if (not (exists "locale:catalogs/suomi"))
  307.     (
  308.         (makedir "locale:catalogs/suomi" (prompt "Creating LOCALE:CATALOGS/suomi")
  309.             (help "Normally this directory may not be existend")
  310.             (confirm))
  311.     ))
  312.  
  313.     (working "Unpacking finnish catalogs")
  314.     (run ("c/LhA x locale/catalogs/suomi/Catalogs.lha locale:catalogs/suomi/"))
  315.  
  316.     (if (not (exists "locale:languages/suomi.language"))
  317.     (
  318.         (working "Installing suomi.language")
  319.  
  320.         (copyfiles (source "locale/languages/suomi.language") (dest "locale:languages/")
  321.             (prompt "Copying soumi.language to locale:languages")
  322.             (help @copyfiles-help)
  323.         )
  324.     ))
  325. ))
  326. ))
  327.  
  328. (complete 70)
  329.  
  330.  
  331. ; WHAT ABOUT THE DOCS ?
  332.  
  333. (if (askbool (prompt "Do you want to install the manual ? "
  334.             "The manual comes in two different formats "
  335.             "and two different languages.")
  336.         (help "KCommodity comes with two types of manuals. "
  337.             "One is a plain ASCII document, the other one "
  338.             "is for use with AmigaGuide©. You have the "
  339.             "possibility to choose from english and german "
  340.             "versions of the documents. Registered users "
  341.             "have the possibility to install a DVI file")
  342.         )
  343. (
  344.     (if (exists "Docs/DVI")
  345.     (
  346.         (set Types (askoptions
  347.                 (prompt "KCommodity comes with two types of manuals. "
  348.                     "There is a plain ASCII document and a "
  349.                     "AmigaGuide© version of the manuals. "
  350.                     "You, as a registered user, may use "
  351.                     "DVI files as well (TeX-Output)"
  352.                 )
  353.                 (help    "Please select the destination directory for "
  354.                     "the manuals. I suggest you place the "
  355.                     "AmigaGuide© documents within the searchpath "
  356.                     "of AmigaGuide© or MultiView©. The DVI File "
  357.                     "may be viewd with a DVI Previewer and printed "
  358.                     "with a suited printer driver."
  359.                 )
  360.                 (choices "Plain ASCII"
  361.                      "AmigaGuide©"
  362.                      "TeX-DVI-File"
  363.                 ))
  364.         )
  365.     )
  366.  
  367. ;    else
  368.  
  369.     (
  370.         (set Types (askoptions
  371.                 (prompt "KCommodity comes with two types of manuals. "
  372.                     "There is a plain ASCII document and a "
  373.                     "AmigaGuide© version of the manuals. "
  374.                 )
  375.                 (help    "Please select the destination directory for "
  376.                     "the manuals. I suggest you place the "
  377.                     "AmigaGuide© documents within the searchpath "
  378.                     "of AmigaGuide© of MultiView©"
  379.                 )
  380.                 (default 1)
  381.                 (choices "Plain ASCII"
  382.                      "AmigaGuide©"
  383.                 ))
  384.         )
  385.     ))
  386.  
  387.     (set Mans (askchoice
  388.             (prompt "Please select the language for the manuals.")
  389.             (help "You can select from two different languages.")
  390.             (default 0)
  391.             (choices
  392.                 "english"
  393.                 "deutsch"
  394.             ))
  395.     )
  396.  
  397.     (if (IN Types 0)
  398.     (    (set ASCIIDir (askdir
  399.                 (prompt "Please select the destination directory "
  400.                     "for the ASCII documentation")
  401.                 (default "Work:")
  402.                 (help @askdir-help)
  403.                 )
  404.         )
  405.  
  406.         (if (= Mans 0)
  407.         (
  408.             (working "Unpacking english ASCII documentation")
  409.             (run ("c/LHA x Docs/ASCII/english/KCXDOC.lha %s" ASCIIDir))
  410.         ))
  411.         (if (= Mans 1)
  412.         (
  413.             (working "Unpacking german ASCII documentation")
  414.             (run ("c/LHA x Docs/ASCII/deutsch/KCXDOC.lha %s" ASCIIDir))
  415.         ))
  416.     ))
  417.  
  418.     (if (IN Types 1)
  419.     (    (set GuideDir (askdir
  420.                 (prompt "Please select the destination directory "
  421.                     "for the AmigaGuide© documentation")
  422.                 (help @askdir-help)
  423.                 (default "Work:"))
  424.         )
  425.         (if (= Mans 0)
  426.         (
  427.             (working "Unpacking english AmigaGuide© documentation")
  428.             (run ("c/LHA x Docs/Guide/english/KCXDOC.lha %s" GuideDir))
  429.         ))
  430.         (if (= Mans 1)
  431.         (
  432.             (working "Unpacking german AmigaGuide© documentation")
  433.             (run ("c/LHA x Docs/Guide/deutsch/KCXDOC.lha %s" GuideDir))
  434.         ))
  435.     ))
  436.  
  437.     (if (IN Types 2)
  438.     (
  439.         (set TeXDir (askdir
  440.                 (prompt "Please select the destination directory "
  441.                     "for the TeX-DVI documentation")
  442.                 (help @askdir-help)
  443.                 (default "Work:"))
  444.         )
  445.         (if (= Mans 0)
  446.         (
  447. ;            (message "You asked for a german Documentation."
  448. ;                 "Due to lack of diskspace, there`s only "
  449. ;                 "the german DVI file")
  450.             (working "Unpacking english TeX documentation")
  451.             (run ("c/LHA x Docs/DVI/english/KCXDOC.lha %s" TeXDir))
  452.         ))
  453.         (if (= Mans 1)
  454.         (
  455. ;            (message "You asked for an english Documentation."
  456. ;                 "Due to lack of diskspace, there`s only "
  457. ;                 "the english DVI file")
  458.             (working "Unpacking german TeX documentation")
  459.             (run ("c/LHA x Docs/DVI/deutsch/KCXDOC.lha %s" TeXDir))
  460.         ))
  461.     ))
  462. ))
  463.  
  464. (complete 90)
  465.  
  466.  
  467. (if (askbool (prompt "The Revision Control System is something for "
  468.             "programmers. It may be usefull while working "
  469.             "on a program (for keeping revision-notes) "
  470.             "Additional information will be written "
  471.             "to the Revision Header, if two Environment "
  472.             "variables are set. These are for the name "
  473.             "of the author (YOU) and the firm you are "
  474.             "working for. If you want to enter the names "
  475.             "and add the needed SetEnv calls to your "
  476.             "S:User-StartUp file, then click on Ok")
  477.         (help "You will have to enter your name and the name "
  478.             "of the firm. The Installer will then add "
  479.             "the needed lines to your S:User-StartUp file "
  480.             "for setting these Environment variables.")
  481.         (choices "Ok"
  482.             "No way")
  483.     )
  484. (
  485.     (set MyName (askstring (prompt "Please enter your name now")
  486.                 (help @askstring-help)
  487.     ))
  488.     (set MyFirm (askstring (prompt "Please enter your company`s name now")
  489.                 (help @askstring-help)
  490.     ))
  491.  
  492.     (startup "KCommodity variables for RCS" (prompt "Adding lines to S:User-StartUp")
  493.                 (help @startup-help)
  494.                 (command ('SetEnv AUTHOR "%s"\n' MyName)
  495.                     ('SetEnv COMPANY "%s"' MyFirm)
  496.                 )
  497.     )
  498.  
  499.     (if (askbool (prompt "Would you like to install KCommodity`s "
  500.                  "ARexx Scripts for Source-Revisions ?")
  501.             (help "These scripts are used to create another "
  502.                   "Revision from within an editor. Supported "
  503.                   "editors are CygnusED Pro and TurboText. "
  504.                   "Additionally there are shell scripts.")
  505.             (choices "Yes"
  506.                  "No")
  507.         )
  508.     (
  509.         (set RexxFiles (askoptions
  510.                 (prompt "Please select the appropriate scripts suiting your needs ")
  511.                 (help "Simply select the editor you are using or "
  512.                       "select the shell to have the shell scripts ")
  513.                 (choices "Cygnus ED"
  514.                      "TurboText"
  515.                      "Shell Scripts")
  516.                 )
  517.         )
  518.  
  519.         (set SourceModes (askoptions
  520.                 (prompt "Now please select the languages you "
  521.                     "normally programm in, so that the "
  522.                     "needed scripts may be installed")
  523.                 (help "This is only to reduce the amount of "
  524.                     "copied files")
  525.                 (choices "Assembler"
  526.                     "Basic"
  527.                     "C"
  528.                     "Modula/Pascal/Oberon")
  529.                 )
  530.         )
  531.  
  532.         (set RexxDir (askdir (prompt "Please select the directory for the scripts ")
  533.                      (help "Normally you will place ARexx Scripts within "
  534.                            "the logical device REXX:")
  535.                      (default "REXX:")
  536.                 )
  537.         )
  538.  
  539.         (working "The ARexx scripts are being unpacked to ram:")
  540.         (run ("c/LhA x Rexx/RexxScripts.lha ram:"))
  541.  
  542.         (if (IN SourceModes 0)
  543.         (
  544.             (if (IN RexxFiles 0)
  545.                 (copyfiles (source "ram:Rexx/CygnusED/ASMRevision.ced") (dest RexxDir) (files)))
  546.             (if (IN RexxFiles 1)
  547.                 (copyfiles (source "ram:Rexx/TurboText/ASMRevision.ttx") (dest RexxDir) (files)))
  548.             (if (IN RexxFiles 2)
  549.                 (copyfiles (source "ram:Rexx/ASMRevision.rexx") (dest RexxDir) (files)))
  550.         ))
  551.  
  552.         (if (IN SourceModes 1)
  553.         (
  554.             (if (IN RexxFiles 0)
  555.                 (copyfiles (source "ram:Rexx/CygnusED/BASRevision.ced") (dest RexxDir) (files)))
  556.             (if (IN RexxFiles 1)
  557.                 (copyfiles (source "ram:Rexx/TurboText/BASRevision.ttx") (dest RexxDir) (files)))
  558.             (if (IN RexxFiles 2)
  559.                 (copyfiles (source "ram:Rexx/BASRevision.rexx") (dest RexxDir) (files)))
  560.         ))
  561.  
  562.         (if (IN SourceModes 2)
  563.         (
  564.             (if (IN RexxFiles 0)
  565.                 (copyfiles (source "ram:Rexx/CygnusED/CRevision.ced") (dest RexxDir) (files)))
  566.             (if (IN RexxFiles 1)
  567.                 (copyfiles (source "ram:Rexx/TurboText/CRevision.ttx") (dest RexxDir) (files)))
  568.             (if (IN RexxFiles 2)
  569.                 (copyfiles (source "ram:Rexx/CRevision.rexx") (dest RexxDir) (files)))
  570.         ))
  571.  
  572.         (if (IN SourceModes 3)
  573.         (
  574.             (if (IN RexxFiles 0)
  575.                 (copyfiles (source "ram:Rexx/CygnusED/PASRevision.ced") (dest RexxDir) (files)))
  576.             (if (IN RexxFiles 1)
  577.                 (copyfiles (source "ram:Rexx/TurboText/PASRevision.ttx") (dest RexxDir) (files)))
  578.             (if (IN RexxFiles 2)
  579.                 (copyfiles (source "ram:Rexx/PASRevision.rexx") (dest RexxDir) (files)))
  580.         ))
  581.  
  582.         (foreach "ram:Rexx/CygnusED" "#?" (delete (tackon "ram:Rexx/CygnusED" @each-name)))
  583.         (delete "ram:Rexx/CygnusED")
  584.  
  585.         (foreach "ram:Rexx/TurboText" "#?" (delete (tackon "ram:Rexx/TurboText" @each-name)))
  586.         (delete "ram:Rexx/TurboText")
  587.  
  588.         (foreach "ram:Rexx" "#?" (delete (tackon "ram:Rexx" @each-name)))
  589.         (delete "ram:Rexx")
  590.     ))
  591. ))
  592.  
  593. (message "Now changing the tooltypes of the main program, so that it "
  594.     "will find the programs.\nAdditionally the ToolTypes for\nfinding the prefs will be set.")
  595.  
  596. (tooltype (dest KCXMainPrg) (settooltype ("PREFSPATH") (KCXPrefsPrg)))
  597. (tooltype (dest KCXMainPrg) (settooltype ("PRINTERPATH") (KCXPrintPrg)))
  598. (tooltype (dest KCXMainPrg) (settooltype ("SETTINGS") (MyPrefs)))
  599. (tooltype (dest KCXPrefsPrg) (settooltype ("SETTINGS") (MyPrefs)))
  600. (tooltype (dest KCXMainPrg) (noposition))
  601. (tooltype (dest KCXPrefsPrg) (noposition))
  602. (tooltype (dest KCXPrintPrg) (noposition))
  603.  
  604. (complete 100)
  605.  
  606. (set EndMsg1 ("The main program can be found in\n%s\n" KCXMain))
  607. (set EndMsg2 ("The Prefs editor is located in\n%s\n" KCXPrefs))
  608. (set EndMsg3 ("and the Printer module was copied to\n%s\n" KCXPrinter))
  609.  
  610. (exit EndMsg1 EndMsg2 EndMsg3 "\nHave fun using KCommodity\nNote the changed address !\nSee the Note/Achtung files for more")
  611.